home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 May
/
1985-05.d64
/
power basic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
726b
|
17 lines
10 input"[147]starting address";sa$:sa=val(sa$)
20 fori=satosa+121:reada:pokei,a:n=n+a:next
30 ifn<>16955thenprint"[147]error in data":stop
40 a=int((sa+11)/256):b=sa+11-a*256:c=int((sa+46)/256):d=sa+46-c*256
50 pokesa+1,b:pokesa+6,a:pokesa+34,d:pokesa+39,c
60 print"sys"sa"to use":new
70 data169,11,141,34,3,169,192,141,35,3,96,165
80 data123,201,2,240,26,165,122,133,251,165,57,133
90 data181,165,58,133,182,169,0,133,183,169,46,141
100 data6,3,169,192,141,7,3,76,243,243,133,252
110 data165,183,208,18,230,183,169,145,32,210,255,165
120 data181,133,20,165,182,133,21,76,167,198,165,183
130 data201,1,208,9,230,183,56,165,251,229,95,133
140 data253,132,254,196,253,240,13,200,200,177,95,240
150 data9,164,254,165,252,76,26,199,198,254,169,95
160 data133,252,169,26,141,6,3,169,199,141,7,3,208,231